home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0041_Re: Trunc() and Frac().pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  908 b   |  42 lines
  1. Program Sample_Trunc_Frac;
  2.  
  3. Var
  4.  
  5.     nNumber,
  6.     nTrunc,
  7.     nFrac : Real;
  8.  
  9. { Number es xxxx.yyy }
  10.  
  11. Procedure Trunc_Frac(nIn : Real; Var nTruncOut,nFracOut : Real);
  12. Var      cSt : String;
  13.      nDummy  : Integer;
  14. Begin
  15.   Str(nIn:18:8,cSt);
  16.   Val(Copy(cSt,1,10),nTruncOut,nDummy);
  17.   Val('0'+Copy(cSt,10,5),nFracOut,nDummy);  { .xxx }
  18. End;
  19.  
  20. Begin
  21.   Writeln;
  22.   nNumber := 1234567.891234;
  23.   Trunc_frac(nNumber,nTrunc,nFrac);
  24.   Writeln('Number : ',nNumber:18:8,
  25.           ' Trunc : ',nTrunc:10:0,
  26.           '  Frac : ',nFrac:18:8);
  27.  
  28.   nNumber := 5555.0;
  29.   Trunc_frac(nNumber,nTrunc,nFrac);
  30.   Writeln('Number : ',nNumber:18:8,
  31.           ' Trunc : ',nTrunc:10:0,
  32.           '  Frac : ',nFrac:18:8);
  33.  
  34.   nNumber := -10001.555;
  35.   Trunc_frac(nNumber,nTrunc,nFrac);
  36.   Writeln('Number : ',nNumber:18:8,
  37.           ' Trunc : ',nTrunc:10:0,
  38.           '  Frac : ',nFrac:18:8);
  39.  
  40. End.
  41.  
  42.